﻿Public Class OrdenCompra

    Dim _CIA, _SUC, _TDOC, _DCP, _FechaLLe, _FechaReg, _PROVCOD, _PROVNOM, _EST, _CANTITEMS As String

    Sub New()

    End Sub

    Sub New(cia As String, suc As String, tdoc As String, dcp As String, fechalle As String, fechareg As String, provcod As String, provnom As String, est As String, cantitems As String)
        Me._CIA = cia
        Me._SUC = suc
        Me._TDOC = tdoc
        Me._DCP = dcp
        Me._FechaLLe = fechalle
        Me._FechaReg = fechareg
        Me._PROVCOD = provcod
        Me._PROVNOM = provnom
        Me._EST = est
        Me._CANTITEMS = cantitems
    End Sub

    Public Property CIA() As String
        Get
            Return _CIA
        End Get
        Set(value As String)
            _CIA = value
        End Set
    End Property

    Public Property SUC_Codigo() As String
        Get
            Return _SUC
        End Get
        Set(value As String)
            _SUC = value
        End Set
    End Property

    Public Property TDOC_Codigo() As String
        Get
            Return _TDOC
        End Get
        Set(value As String)
            _TDOC = value
        End Set
    End Property

    Public Property DCP_Codigo() As String
        Get
            Return _DCP
        End Get
        Set(value As String)
            _DCP = value
        End Set
    End Property

    Public Property FechaLlegada() As String
        Get
            Return _FechaLLe
        End Get
        Set(value As String)
            _FechaLLe = value
        End Set
    End Property

    Public Property FechaRegistro() As String
        Get
            Return _FechaReg
        End Get
        Set(value As String)
            _FechaReg = value
        End Set
    End Property

    Public Property PROV_Codigo() As String
        Get
            Return _PROVCOD
        End Get
        Set(value As String)
            _PROVCOD = value
        End Set
    End Property

    Public Property PROV_Nombre() As String
        Get
            Return _PROVNOM
        End Get
        Set(value As String)
            _PROVNOM = value
        End Set
    End Property

    Public Property EST_Codigo() As String
        Get
            Return _EST
        End Get
        Set(value As String)
            _EST = value
        End Set
    End Property

    Public Property CANT_Items() As String
        Get
            Return _CANTITEMS
        End Get
        Set(value As String)
            _CANTITEMS = value
        End Set
    End Property

End Class
